TRANS	LH	     20.17     30.60      5.54       .70       .30   -177.55
TRANS	MTH	      9.50     32.70      6.25      2.13     -3.03   -179.25
TRANS	MHT	      8.85     32.27      6.19     -3.43       .29   -178.47
TRANS	MH	      8.90     33.00      6.50       .00       .00   -180.00
TRANS	HY	     20.34     31.32      6.10       .00       .00    180.00
TRANS	DP	      9.35     32.20      6.20       .00     -4.00     90.00
TRANS	L	     19.91     31.30       .51       .00     90.00       .00
TRANS	REGRASP	     20.46     31.32      5.99      2.29       .14    179.04
TRANS	HP	      9.50     30.98      6.40     -9.85     -1.09     91.07
TRANS	RH	     19.86     29.80      5.20     -1.29      -.33    -89.08
TRANS	T	     32.00     55.00      2.00     90.00     90.00       .00
TRANS	RHW	     23.33     35.23      5.00     37.01      1.34    -87.73


VECT	V	       .00      -.50       .00
VECT	LHA	       .00      2.00       .00
VECT	X	      1.00       .00       .00
VECT	Y	       .00      1.00       .00
VECT	Z	       .00       .00      1.00
VECT	FACE	     -1.36       .00      1.55
VECT	F	       .00   -100.00       .00
VECT	DP	      1.00       .00     -1.00
VECT	DPA	      2.00       .00     -1.00
VECT	DV	      -.35       .00      -.20
VECT	MV	   -300.00       .00       .00
VECT	FV	       .00       .00    -40.00
VECT	HPA	      3.00       .00       .00
VECT	NIL	       .00       .00       .00
DEFINE	B_PART	
BEGIN BHINGE
PAUSE
PICK_IT_UP
PROCEED
REGRASP
PROCEED
POSITION_IT
PROCEED
GRT
PROCEED
RIGHT_TAKE
PROCEED
MH
PROCEED
AD
RETURN

DEFINE	PICK_IT_UP	
OPEN 1.5
MERGE
MOVE L
VECT FV
0 0 -40
STOP FV NIL
CHANGE Z -1 NIL 0 100
CHANGE Z .2 NIL 0 0
CONO NIL NIL 0 100 100
GO L Y -1.0 NIL 0
OPEN 4.0
CHANGE Y -.6 NIL 0 0
CENTER 1
CONO Y NIL 0 0 0
GOTO L Z 5 NIL 0

DEFINE	REGRASP	
OPEN 3.2
CONO LHA NIL 0 0 0
MOVE HY
VECT F
0 -200 0
STOP F NIL
CHANGE Y -1 NIL 0 200
CHANGE Y .2 NIL 0 0
OPEN 2.8
VECT F
0 -100 0
STOP F NIL
CHANGE Y -.5 NIL 0 200
CLOSE 1

DEFINE	POSITION_IT	
VECT HPA
3 0 0
CONO HPA NIL 0 0 0
MOVE HP
VECT FV
-50 0 0
STOP FV NIL
CHANGE X -1 NIL 0 100
VECT FV
0 0 60
VECT MV
-300 0 0
STOP FV NIL
VECT FV
-50 0 0
FORCE FV MV
FREE 1 X
SPIN 1 Y
CHANGE Z 1 NIL 0 100
SAVE FACE
VECT DP
1 0 -1
DEPART DP
VECT DPA
2 0 -1
CONO DPA NIL 0 0 0
MOVE DP
RESTORE FACE 0
VECT FV
0 -100 0
STOP FV NIL
SPIN 1 X
CHANGE Y -1 NIL 0 200
SAVE FACE

DEFINE	RIGHT_TAKE	
OPEN 1.5
CONO NIL NIL 0 100 100
GO RH
CLOSE -1

DEFINE	MH	
CONO Y NIL 0 0 0
MOVE MH
RESTORE FACE 0
VECT FV
0 -60 0
STOP FV NIL
CHANGE Y -1 NIL 0 100
VECT FV
100 -50 0
FORCE FV NIL
VECT FV
0 0 -200
STOP FV NIL
FREE 2 X Y
CHANGE Z -1 NIL 0 0
FREE 1 Z
GO MTH
RESTORE FACE 0

DEFINE	GRT	
OPEN 5
MERGE
DEPART Y
MOVE RH
OPEN 1.5
CHANGE Y 5 Z -30 0

DEFINE	AD	
OPEN 5
CHANGE Y 3 NIL 0 0
PARK

DEFINE	B	
GRT
PROCEED
RIGHT_TAKE
PROCEED
MH
PROCEED
AD
RETURN